perm filename S1[1,LCS]1 blob
sn#330342 filedate 1978-01-20 generic text, type T, neo UTF8
1) SC1.F4[1,LCS] and 2) SC1.F4[SCR,LCS] 1-20-78 14:29 pages 2,2
**** File 1) SC1.F4[1,LCS], Page 2 line 25
1) 1 LN,ITYP,TPALN(4),JED
1) CC 7/74 COLGATE COMMON/TYP/ IS FOR COLTTY ROUT.
1) C SEE LABEL 1774 AND ABOVE RE. BUFFER LIMIT.
1) COMMON/VV/LIMIT,V(4000) /A/ROFF(27),NP(27),PCH(27,32),
1) 1 RDEV(27),IPT(27,31),XT(27),OTH(20,16),SCAL(101)
**** File 2) SC1.F4[SCR,LCS], Page 2 line 25
2) 1 LN,ITYP,TPALN(4),JED /SAM/ISAM
2) CC 7/74 COLGATE COMMON/TYP/ IS FOR COLTTY ROUT.
2) C SEE LABEL 1774 AND BELOW RE. BUFFER LIMIT.
2) COMMON/VV/LIMIT,V(16000) /A/ROFF(27),NP(27),PCH(27,32),
2) 1 RDEV(27),IPT(27,31),XT(27),OTH(20,16),SCAL(101)
***************
**** File 1) SC1.F4[1,LCS], Page 2 line 48
1) DATA KZY/27/,ISEMI/';'/,IQT/'"'/,LIMIT/4000/
1) 1, JFM(3)/','/
**** File 2) SC1.F4[SCR,LCS], Page 2 line 48
2) DATA KZY/27/,ISEMI/';'/,IQT/'"'/,LIMIT/16000/
2) 1, JFM(3)/','/
***************
**** File 1) SC1.F4[1,LCS], Page 2 line 54
1) LPAR=0
**** File 2) SC1.F4[SCR,LCS], Page 2 line 54
2) ISAM=0
2) LPAR=0
***************
**** File 1) SC1.F4[1,LCS], Page 2 line 112
1) IF(K.NE.'EDIT')GO TO 3112
1) JED=0
**** File 2) SC1.F4[SCR,LCS], Page 2 line 113
2) IF(K.NE.'999')GO TO 999
2) ISAM=-1
2) TYPE 1999
2) GO TO 2112
2) C SAMSWITCH ALLOWS FOR OVERLAPS OF INSTRUMENTS
2) 1999 FORMAT(' "SAMSWITCH" HAS BEEN SET.')
2) 999 IF(K.NE.'EDIT')GO TO 3112
2) JED=0
***************